home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 May / Macworld (1998-05).dmg / Games World / Shareware Games / Arcade / Supreme Commander / Supreme Commander.mac / 00138.ls < prev    next >
Encoding:
Text File  |  1996-01-30  |  1.3 KB  |  46 lines
  1. on mouseDown
  2.   global HELLHOLE, occupied, topupied
  3.   set occupied to 0
  4.   set topupied to 0
  5.   if the mouseH > 460 then
  6.     exit
  7.   else
  8.     if the visible of sprite 48 = 1 then
  9.       exit
  10.     else
  11.       when timeOut then NOTHING
  12.       set HELLHOLE to 1
  13.       puppetSound("pigs in space")
  14.       set the visible of sprite 39 to 1
  15.       repeat with x = 1 to 3
  16.         set the castNum of sprite 12 to 5
  17.         updateStage()
  18.         set the castNum of sprite 12 to 6
  19.         updateStage()
  20.         set the castNum of sprite 8 to 5
  21.         updateStage()
  22.         set the castNum of sprite 8 to 6
  23.         updateStage()
  24.       end repeat
  25.       set the visible of sprite 39 to 0
  26.       updateStage()
  27.       puppetSound(0)
  28.       set the visible of sprite 5 to 1
  29.       set the visible of sprite 6 to 1
  30.       set the visible of sprite 7 to 1
  31.       set the visible of sprite 9 to 0
  32.       set the visible of sprite 10 to 0
  33.       set the visible of sprite 11 to 0
  34.       set the visible of sprite 14 to 0
  35.       set the visible of sprite 13 to 0
  36.       set the visible of sprite 15 to 0
  37.       set the visible of sprite 16 to 0
  38.       set the visible of sprite 17 to 0
  39.       set the visible of sprite 19 to 0
  40.       set the visible of sprite 30 to 0
  41.       set the visible of sprite 31 to 0
  42.       go("lightholes")
  43.     end if
  44.   end if
  45. end
  46.